Option Explicit
Sub D_Sample014()
    Dim myRng As Range
    Set myRng = Range("A1")				'Nxs
    'ǳƨ즹
    With myRng
        .Insert Shift:=xlToRight				'xs檺J]NJsxs沾k^
        .Insert Shift:=xlDown 				'xs檺J]NJsxs沾U^
        .EntireRow.Insert 					'CJ
        .EntireColumn.Insert				'檺J
    End With
    Set myRng = Nothing					'
End Sub

